home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic1 / pro22 / radrh.bas < prev    next >
BASIC Source File  |  1988-09-26  |  1KB  |  56 lines
  1. 10 CLS
  2. 20 FOR T=1 TO 25
  3. 30 LET TAB=INT(RND * 68)+1
  4. 40 PRINT "RAD RHYMER"
  5. 50 PRINT TAB(TAB)
  6. 70 NEXT T
  7. 71 PRINT
  8. 72 PRINT
  9. 73 PRINT
  10. 80 PRINT "ANSWER THE QUESTIONS THEN PRESS THE ENTER KEY;"
  11. 81 PRINT
  12. 82 PRINT
  13. 90 PRINT "WHAT IS YOUR NAME ?"
  14. 110 PRINT
  15. 120 PRINT
  16. 125 INPUT N$
  17. 126 CLS
  18. 130 PRINT " WHAT IS THE NAME OF YOUR BEST FRIEND ?"
  19. 140 PRINT
  20. 150 INPUT F$
  21. 160 PRINT
  22. 161 CLS
  23. 170 PRINT "AER YOU MALE OR FEMALE ?"
  24. 180 INPUT M$
  25. 190 IF M$="MALE" OR M$="M" THEN G$="HIS" ELSE G$="HER"
  26. 250 CLS
  27. 260 PRINT "WHAT IS YOUR FAVORITE DRINK ? "
  28. 270 INPUT D$
  29. 280 PRINT
  30. 290 PRINT
  31. 299 CLS
  32. 300 PRINT"NAME A PART OF YOUR BODY"
  33. 310 INPUT B$
  34. 320 PRINT
  35. 330 PRINT
  36. 340 PRINT "PRESS THE ENTER KEY"
  37. 350 INPUT S$
  38. 360 CLS
  39. 364 FOR SP=1 TO 10
  40. 365 PRINT
  41. 366 NEXT SP
  42. 369 PRINT TAB(20)
  43. 370 PRINT N$ " AND "F$
  44. 379 PRINT TAB(20)
  45. 380 PRINT "WENT UP THE HILL "
  46. 389 PRINT TAB(20)
  47. 390 PRINT "TO FETCH A PAIL OF "D$
  48. 399 PRINT TAB(20)
  49. 400 PRINT N$" FELL DOWN AND"
  50. 409 PRINT TAB(20)
  51. 410 PRINT "BROKE "G$" "B$","
  52. 419 PRINT TAB(20)
  53. 420 PRINT "AND "F$" CAME "
  54. 429 PRINT TAB(20)
  55. 430 PRINT "TUMBLING AFTER."
  56.